home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbontop / ontop.frm < prev    next >
Text File  |  1995-05-08  |  3KB  |  83 lines
  1. VERSION 2.00
  2. Begin Form OnTop 
  3.    Caption         =   "OnTop"
  4.    ClientHeight    =   3810
  5.    ClientLeft      =   3090
  6.    ClientTop       =   2925
  7.    ClientWidth     =   4995
  8.    Height          =   4215
  9.    Icon            =   ONTOP.FRX:0000
  10.    Left            =   3030
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   3810
  14.    ScaleWidth      =   4995
  15.    Top             =   2580
  16.    Width           =   5115
  17.    Begin CommandButton Command3 
  18.       Caption         =   "Exit"
  19.       Height          =   615
  20.       Left            =   1560
  21.       TabIndex        =   2
  22.       Top             =   3000
  23.       Width           =   1695
  24.    End
  25.    Begin CommandButton Command2 
  26.       Caption         =   "Not On Top"
  27.       Height          =   615
  28.       Left            =   2520
  29.       TabIndex        =   1
  30.       Top             =   2280
  31.       Width           =   1575
  32.    End
  33.    Begin CommandButton Command1 
  34.       Caption         =   "Always On Top"
  35.       Height          =   615
  36.       Left            =   720
  37.       TabIndex        =   0
  38.       Top             =   2280
  39.       Width           =   1575
  40.    End
  41.    Begin Label Label2 
  42.       BorderStyle     =   1  'Fixed Single
  43.       Caption         =   "This routine is good for making ""floating"" icon palletes, etc.  By the way, if you like Visual Basic and you don't have verions 2.0 yet, you should get it. It is truly amazing!"
  44.       Height          =   855
  45.       Left            =   240
  46.       TabIndex        =   4
  47.       Top             =   1320
  48.       Width           =   4455
  49.    End
  50.    Begin Label Label1 
  51.       BorderStyle     =   1  'Fixed Single
  52.       Caption         =   "Click the ""Always On Top"" button to make this form ALWAYS above any other form or application. (After clicking the button, try to drag another form or application on top of this form.  They will always ""fall"" behind this form) "
  53.       Height          =   1095
  54.       Left            =   240
  55.       TabIndex        =   3
  56.       Top             =   120
  57.       Width           =   4455
  58.    End
  59. End
  60. Sub Command1_Click ()
  61.     SetWindowPos ontop.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW
  62.  
  63.  
  64. End Sub
  65.  
  66. Sub Command2_Click ()
  67.     SetWindowPos ontop.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW
  68.     
  69.  
  70. End Sub
  71.  
  72. Sub Command3_Click ()
  73. End
  74. End Sub
  75.  
  76. Sub Form_Load ()
  77.    
  78.     Left = (Screen.Width - Width) / 2   ' Center form horizontally.
  79.     Top = (Screen.Height - Height) / 2  ' Center form vertically.
  80.     
  81. End Sub
  82.  
  83.